user function testeDatas()       
	Set Date to British
	cData := "20011018"
	MsgInfo(sToD(cData))
return 